home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh25.d64 / switch u-o.bas (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  303b  |  11 lines
  1. 0 REM
  2. 136 OPEN1,8,15,"UI"
  3. 232 REM *** SPURSCHALTPROGRAMME ***
  4. 236 PRINT#1,"M-W"CHR$(6)CHR$(0)CHR$(2)CHR$(1)CHR$(0)
  5. 238 PRINT#1,"M-W"CHR$(0)CHR$(0)CHR$(1)CHR$(128)
  6. 240 PRINT#1,"M-R"CHR$(0)CHR$(0)CHR$(1):GET#1,A$:IFASC(A$+CHR$(0))>127THEN240
  7. 244 PRINT#1,"M-W"CHR$(6)CHR$(0)CHR$(2)CHR$(36)CHR$(0)
  8. 246 PRINT#1,"M-W"CHR$(0)CHR$(0)CHR$(1)CHR$(176)
  9. 248 PRINT#1,"M-R"CHR$(0)CHR$(0)CHR$(1):GET#1,A$:IFASC(A$+CHR$(0))>127THEN248
  10. 250 CLOSE1:END
  11.